From: Michael Albinus Date: Sat, 27 Jan 2007 14:40:08 +0000 (+0000) Subject: * net/tramp.el (tramp-do-copy-or-rename-file-out-of-band): Set X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~2647 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=51daa32afe7dac132eb5953e4861ccba98a8d0a0;p=emacs.git * net/tramp.el (tramp-do-copy-or-rename-file-out-of-band): Set default-directory to a sane value when calling start-process. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 799b914e55e..2978a5c7181 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2007-01-27 Michael Albinus + + * net/tramp.el (tramp-do-copy-or-rename-file-out-of-band): Set + default-directory to a sane value when calling start-process. + 2007-01-27 Eli Zaretskii * ls-lisp.el (ls-lisp-use-localized-time-format): New defcustom. diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 5625072a155..257fbc4e47b 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -3245,8 +3245,13 @@ be a local filename. The method used must be an out-of-band method." ;; Use rcp-like program for file transfer. (unwind-protect - (let ((p (apply 'start-process (buffer-name trampbuf) trampbuf - copy-program copy-args))) + (let* ((default-directory + (if (and (stringp default-directory) + (file-accessible-directory-p default-directory)) + default-directory + (tramp-temporary-file-directory))) + (p (apply 'start-process (buffer-name trampbuf) trampbuf + copy-program copy-args))) (tramp-set-process-query-on-exit-flag p nil) (tramp-process-actions p multi-method method user host tramp-actions-copy-out-of-band))